Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/dtadmo/form1.frm

Text File | 1994-10-15 | 8KB | 285 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Form1"
   ClientHeight    =   4305
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   7365
   Height          =   4710
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   4305
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin CommandButton cmdEnd
      Caption         =   "End"
      Height          =   615
      Left            =   5400
      TabIndex        =   21
      Top             =   3480
      Width           =   1815
   End
   Begin CommandButton cmdDemoDtaCtrl
      Caption         =   "Demo data control"
      Height          =   255
      Left            =   1440
      TabIndex        =   8
      Top             =   3840
      Width           =   2055
   End
   Begin CommandButton cmdKillMDBFile
      Caption         =   "Kill USPLACE.MDB"
      Height          =   615
      Left            =   5400
      TabIndex        =   9
      Top             =   960
      Width           =   1815
   End
   Begin CommandButton cmdDemoDupeErr
      Caption         =   "Demo dup index err"
      Height          =   255
      Left            =   1440
      TabIndex        =   7
      Top             =   3480
      Width           =   2055
   End
   Begin CommandButton cmdSeekOnName
      Caption         =   "Seek on Name Index"
      Height          =   255
      Left            =   1440
      TabIndex        =   6
      Top             =   3120
      Width           =   2055
   End
   Begin CommandButton cmdNameIndex
      Caption         =   "Add Index on Name"
      Height          =   255
      Left            =   1440
      TabIndex        =   5
      Top             =   2760
      Width           =   2055
   End
   Begin CommandButton cmdLoadFile
      Caption         =   "Load File w/ Data"
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   2400
      Width           =   2055
   End
   Begin CommandButton cmdAddPrimaryKey
      Caption         =   "Add Primary Key"
      Height          =   255
      Left            =   1440
      TabIndex        =   3
      Top             =   2040
      Width           =   2055
   End
   Begin CommandButton cmdAddField
      Caption         =   "Add Field to Table"
      Height          =   255
      Left            =   1440
      TabIndex        =   2
      Top             =   1680
      Width           =   2055
   End
   Begin CommandButton cmdMakeTable
      Caption         =   "Make Table"
      Height          =   255
      Left            =   1440
      TabIndex        =   1
      Top             =   1320
      Width           =   2055
   End
   Begin CommandButton cmdMakeDataBase
      Caption         =   "Make Data base"
      Height          =   255
      Left            =   1440
      TabIndex        =   0
      Top             =   960
      Width           =   2055
   End
   Begin Label Label3
      Height          =   735
      Left            =   3600
      TabIndex        =   20
      Top             =   2400
      Width           =   3615
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 9"
      Height          =   255
      Index           =   8
      Left            =   120
      TabIndex        =   19
      Top             =   3840
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 8"
      Height          =   255
      Index           =   7
      Left            =   120
      TabIndex        =   18
      Top             =   3480
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 7"
      Height          =   255
      Index           =   6
      Left            =   120
      TabIndex        =   17
      Top             =   3120
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 6"
      Height          =   255
      Index           =   5
      Left            =   120
      TabIndex        =   16
      Top             =   2760
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 5"
      Height          =   255
      Index           =   4
      Left            =   120
      TabIndex        =   15
      Top             =   2400
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 4"
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   14
      Top             =   2040
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 3"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   13
      Top             =   1680
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 2"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   12
      Top             =   1320
      Width           =   1095
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Step 1"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   11
      Top             =   960
      Width           =   1095
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Click buttons in sequential order to see things work properly. Then, delete the db and/or try things out of order or click buttons more than once to see the errors generated and trapped."
      Height          =   855
      Left            =   240
      TabIndex        =   10
      Top             =   0
      Width           =   4335
   End
End

Sub cmdAddField_Click ()
    addfield

End Sub

Sub cmdAddPrimaryKey_Click ()
    makeindex

End Sub

Sub cmdDemoDtaCtrl_Click ()
    form2.Show 1

End Sub

Sub cmdDemoDupeErr_Click ()
    'the primary key must be unique and if
    'the project is run in order, Tucson
    'will already be in the database
    addtucson

End Sub

Sub cmdEnd_Click ()
    End

End Sub

Sub cmdKillMDBFile_Click ()
'Global Const MB_YESNO = 4              ' Yes and No buttons
'Global Const IDYES = 6                 ' Yes button pressed
'Global Const MB_DEFBUTTON2 = 256       ' Second button is default

    Dim response As Integer
    response = MsgBox("Are sure you want to delete the MDB database?", MB_YESNO + MB_DEFBUTTON2)
    If response = IDYES Then killmdb

End Sub

Sub cmdLoadFile_Click ()
    additems Label3

End Sub

Sub cmdMakeDataBase_Click ()
    makedb

End Sub

Sub cmdMakeTable_Click ()
    maketable

End Sub

Sub cmdNameIndex_Click ()
    addnameidx

End Sub

Sub cmdSeekOnName_Click ()
    seekname

End Sub

Sub Form_Load ()
    If Right$(app.Path, 1) = "\" Then
        ThePath = app.Path
    Else
        ThePath = app.Path & "\"
    End If

End Sub